home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 September / PCWorld_2008-09_cd.bin / domacnost a kancelar / winbubble / WinBubble 1.74.exe / WinBubble 1.74\Tools\lawrence.vbs < prev    next >
Text File  |  2008-07-13  |  373b  |  12 lines
  1. Set ObjArg = WScript.Arguments
  2. Dim strArg
  3. If WScript.Arguments.Count > 0 Then
  4.    Dim strInfo
  5.    Set objApp = CreateObject("Shell.Application") 
  6.    For Each strArg in objArg
  7.       objApp.shellExecute "cmd.exe", " /c ECHO Y| cacls " & chr(34) & strArg & chr(34) & " /T /G %username%:F", , "runas", 1
  8.    Next 
  9.  
  10.    Set objNet = Nothing
  11.    Set objApp = Nothing
  12. End If